IGlobal::LoadLicenseKeyData Method

Loads license key from data specified in szData argument.

IDL

HRESULT LoadLicenseKeyData(
    [in] BSTR bstrData, 
    [out, retval] VARIANT_BOOL * retval
);

Returns

Returns true if license is verified, false otherwise.

Example

VBScript

Copy Code

Dim strKey
strKey = strKey & "-----BEGIN KEY-----" & vbCrLf
strKey = strKey & "Product: SmartFTP FTP Library" & vbCrLf
strKey = strKey & "ID: 400000000" & vbCrLf
strKey = strKey & "User: user" & vbCrLf
strKey = strKey & "Company: my company" & vbCrLf
strKey = strKey & "Email: user@host.com" & vbCrLf
strKey = strKey & "Version: 1.0" & vbCrLf
strKey = strKey & "Number of Users: 1" & vbCrLf
strKey = strKey & "Date of Issue: 2005-04-05" & vbCrLf
strKey = strKey & "Maintenance Expiration: 2006-04-05" & vbCrLf
strKey = strKey & "-----BEGIN SIGNATURE-----" & vbCrLf
strKey = strKey & "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" & vbCrLf
strKey = strKey & "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" & vbCrLf
strKey = strKey & "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" & vbCrLf
strKey = strKey & "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" & vbCrLf
strKey = strKey & "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx==" & vbCrLf
strKey = strKey & "-----END SIGNATURE-----" & vbCrLf

Dim obj
Set obj = CreateObject("sfFTPLib.Global")
WScript.Echo "Object created." & vbCrLf
WScript.Echo strKey

If obj.LoadLicenseKeyData(strKey) Then
    WScript.Echo "Success"
Else
    WScript.Echo "Failed"
End If